function p= unpackparameters(parameters)
p=[];
for ikl=1:size(parameters,1)
    if strcmp(parameters{ikl,4},'n')
        eval(sprintf('%s=[%s];',parameters{ikl,1},parameters{ikl,2}));
    else
        eval(sprintf('%s=''%s'';',parameters{ikl,1},parameters{ikl,2}));
    end
    eval(sprintf('p.%s=%s;',parameters{ikl,1},parameters{ikl,1}));
end
